10->D
20->E
30->F
40->G
10->I
I->J
I->K
I->L
ZStandard
AxesOff
FnOff 
Horizontal 10
Horizontal -10
Vertical 10
Vertical -10
Line(9.5,8,9.5,-8
ClrHome
Disp "ALPHA-Race","BY BENGT W","","KEYS:","USE [CLEAR]":Pause 
Lbl S
ClrHome
Disp "SELECT DIFFICULT","2(EASY)-10(HARD)"
Prompt W
If W>10 or W<2:Goto S
Lbl A
getKey->Z
If I>88 or J>88 or K>88 or L>88:Goto B
If Z=45:I+1->I
If randInt(0,W)>0:J+1->J
getKey->Z
If randInt(0,W)>0:K+1->K
If randInt(0,W)>0:L+1->L
Text(F,K," e
Text(E,J," [pi]
Text(G,L," u
Text(D,I," Y
Goto A
Lbl B
ClrDraw:ClrHome
If I>=J and I>=K and I>=L:Then:Disp "YOU WON IT":Else:Disp "SORRY YOU LOSE":End
Pause 
"